home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Art Department Pro 2.15 d2.adf / RXProgs.lzh / locate-adpro.adpro < prev    next >
Text File  |  1991-10-17  |  1KB  |  47 lines
  1. /*
  2. **                        L o c a t e   A D P r o
  3. ** 
  4. **    This ARexx program will attempt to find a currently running ADPro.
  5. **    If one is not found, then it will attempt to start up an ADPro.
  6. **
  7. **    The main guts of this program are imbedded in a sub-routine to make
  8. **    it easier to glue into your own code.
  9. **
  10. **    Example ARexx program for controlling ADPro by ASDG Incorporated.
  11. **     Copyright 1991 By  ASDG Incorporated
  12. **
  13. */
  14.  
  15. OPTIONS RESULTS
  16.  
  17. CALL Locate_ADPro
  18.  
  19. IF RESULT = 1 THEN SAY "ADPro has been found"
  20. ELSE SAY "Could not locate or start ADPro"
  21. EXIT
  22.  
  23.  
  24. Locate_ADPro:
  25.  
  26. Max_Seconds_To_Load = 60
  27. Flag = 0
  28. LibName = 'rexxsupport.library'
  29.  
  30. IF POS(LibName , SHOW('Libraries')) = 0 THEN ADDLIB(LibName , 0 , -30 , 0)
  31. IF POS(LibName , SHOW('Libraries')) = 0 THEN RETURN 0
  32.  
  33. IF STATEF('adpro:') = "" THEN RETURN 0
  34.  
  35. TIME('R')
  36. DO WHILE (Time('E') < Max_Seconds_To_Load) & (POS('ADPro' , SHOW('Ports')) = 0)
  37.     IF Flag = 0 THEN DO
  38.         /* Set whatever command line arguments you want. */
  39.         ADDRESS COMMAND 'run < nil: > nil: adpro:adpro BEHIND MAXMEM=5000000'
  40.         Flag = 1
  41.     END
  42.     ADDRESS COMMAND 'WAIT 1'
  43. END
  44. IF POS('ADPro' , SHOW('Ports')) = 0 THEN RETURN 0
  45. ELSE RETURN 1
  46.  
  47.